% Calculate distance-to-centre (D2C) for 24 fruit flies

% Extract File
file = uigetfile('*.csv');
A=importdata(file);
columns=size(A,2);

% Arena Pixel Diameter
arenas_diameter = 164

% 6 Parameter Archiving
m=columns/6
allFlies_mm_dist2wall=zeros(m,1);

for j=1:m

% Extract the X and Y coordinates for each fruit fly
x=A(:,j*6-4);
y=A(:,j*6-3);

% Calculate the Maximum and Minimum Values of XY
maxX=max(x);
maxY=max(y);
minX=min(x);
minY=min(y);

% XY coordinates of the center of the Arena
mitteX=minX+((maxX-minX)/2);
mitteY=minY+((maxY-minY)/2);

% D2C Pixels mitte/center
n=length(x);
dist2center=zeros(n,1);
for i=1:n
dist2center(i) = sqrt( (x(i)-mitteX)^2 + (y(i)-mitteY)^2 );
end

% Median D2C for fruit flies
median_dist2center=median(dist2center);

% Actual Distance for Fruit Fly D2C
mm_dist2center=(10/arenas_diameter)*median_dist2center;

% Output Results
allFlies_mm_dist2center(j)=mm_dist2center;
end

allFlies_mm_dist2center
